calculateServiceDemand <- function(idle){
	servDem <- (100-idle)/1;
	return(servDem);
}

data <- read.table('test.dat', skip=3)
idleTime <- data[,'V11']
cat(mean(calculateServiceDemand(idleTime)))



